home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Deneba / US English / Canvas™ 3.5-68K / Canvas Tools / Separations / Separations.rsrc / hd11_1103 < prev    next >
Text File  |  1994-09-29  |  894b  |  58 lines
  1. %%BeginProcSet: Adobe_customcolor 0 0
  2. % Custom Color Operators
  3. % Version 1.0 5/9/1988
  4. % Copyright (C) 1987, 1988
  5. % Adobe Systems Incorporated
  6. % All Rights Reserved
  7. currentpacking true setpacking
  8. userdict /Adobe_customcolor 5 dict dup begin put
  9. /initialize            % - initialize -
  10. {
  11. /setcustomcolor where
  12.     {
  13.     pop
  14.     }
  15.     {
  16.     Adobe_customcolor begin
  17.     Adobe_customcolor
  18.         {
  19.         dup xcheck
  20.             {
  21.             bind
  22.             } if
  23.         pop pop
  24.         } forall
  25.     end
  26.     Adobe_customcolor begin
  27.     } ifelse
  28. } def
  29. /terminate            % - terminate -
  30. {
  31. currentdict Adobe_customcolor eq
  32.     {
  33.     end
  34.     } if
  35. } def
  36. /findcmykcustomcolor    % cyan magenta yellow black name findcmykcustomcolor object
  37. {
  38. 5 packedarray
  39. }  def
  40. /setcustomcolor        % object tint setcustomcolor -
  41. {
  42. exch
  43. aload pop pop
  44. 4
  45.     {
  46.     4 index mul 4 1 roll
  47.     } repeat
  48. 5 -1 roll pop
  49. setcmykcolor
  50. } def
  51. /setoverprint        % boolean setoverprint -
  52. {
  53. pop
  54. } def
  55. currentdict readonly pop end
  56. setpacking
  57. %%EndProcSet
  58.